home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / PicGlass.ctl < prev    next >
Text File  |  1997-06-14  |  32KB  |  690 lines

  1. VERSION 5.00
  2. Begin VB.UserControl XPictureGlass 
  3.    BackColor       =   &H80000014&
  4.    BackStyle       =   0  'Transparent
  5.    ClientHeight    =   1125
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   1155
  9.    ScaleHeight     =   1125
  10.    ScaleWidth      =   1155
  11.    ToolboxBitmap   =   "PicGlass.ctx":0000
  12. End
  13. Attribute VB_Name = "XPictureGlass"
  14. Attribute VB_GlobalNameSpace = False
  15. Attribute VB_Creatable = True
  16. Attribute VB_PredeclaredId = False
  17. Attribute VB_Exposed = True
  18. Public Enum EErrorPictureGlass
  19.     eeBasePictureGlass = 13740  ' XPictureGlass
  20. End Enum
  21.  
  22. 'Event Declarations:
  23. Event Click() 'MappingInfo=UserControl,UserControl,-1,Click
  24. Attribute Click.VB_Description = "Occurs when the user presses and then releases a mouse button over an object."
  25. Event DblClick() 'MappingInfo=UserControl,UserControl,-1,DblClick
  26. Attribute DblClick.VB_Description = "Occurs when the user presses and releases a mouse button and then presses and releases it again over an object."
  27. Event KeyDown(KeyCode As Integer, Shift As Integer) 'MappingInfo=UserControl,UserControl,-1,KeyDown
  28. Attribute KeyDown.VB_Description = "Occurs when the user presses a key while an object has the focus."
  29. Event KeyPress(KeyAscii As Integer) 'MappingInfo=UserControl,UserControl,-1,KeyPress
  30. Attribute KeyPress.VB_Description = "Occurs when the user presses and releases an ANSI key."
  31. Event KeyUp(KeyCode As Integer, Shift As Integer) 'MappingInfo=UserControl,UserControl,-1,KeyUp
  32. Attribute KeyUp.VB_Description = "Occurs when the user releases a key while an object has the focus."
  33. Event MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 'MappingInfo=UserControl,UserControl,-1,MouseDown
  34. Attribute MouseDown.VB_Description = "Occurs when the user presses the mouse button while an object has the focus."
  35. Event MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 'MappingInfo=UserControl,UserControl,-1,MouseMove
  36. Attribute MouseMove.VB_Description = "Occurs when the user moves the mouse."
  37. Event MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 'MappingInfo=UserControl,UserControl,-1,MouseUp
  38. Attribute MouseUp.VB_Description = "Occurs when the user releases the mouse button while an object has the focus."
  39. Event WriteProperties(PropBag As PropertyBag) 'MappingInfo=UserControl,UserControl,-1,WriteProperties
  40. Attribute WriteProperties.VB_Description = "Occurs when a user control or user document is asked to write its data to a file."
  41. Event Paint() 'MappingInfo=UserControl,UserControl,-1,Paint
  42. Attribute Paint.VB_Description = "Occurs when any part of a form or PictureBox control is moved, enlarged, or exposed."
  43. Event OLEStartDrag(Data As DataObject, AllowedEffects As Long) 'MappingInfo=UserControl,UserControl,-1,OLEStartDrag
  44. Attribute OLEStartDrag.VB_Description = "Occurs when an OLE drag/drop operation is initiated either manually or automatically."
  45. Event OLESetData(Data As DataObject, DataFormat As Integer) 'MappingInfo=UserControl,UserControl,-1,OLESetData
  46. Attribute OLESetData.VB_Description = "Occurs at the OLE drag/drop source control when the drop target requests data that was not provided to the DataObject during the OLEDragStart event."
  47. Event OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean) 'MappingInfo=UserControl,UserControl,-1,OLEGiveFeedback
  48. Attribute OLEGiveFeedback.VB_Description = "Occurs at the source control of an OLE drag/drop operation when the mouse cursor needs to be changed."
  49. Event OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer) 'MappingInfo=UserControl,UserControl,-1,OLEDragOver
  50. Attribute OLEDragOver.VB_Description = "Occurs when the mouse is moved over the control during an OLE drag/drop operation, if its OLEDropMode property is set to manual."
  51. Event OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) 'MappingInfo=UserControl,UserControl,-1,OLEDragDrop
  52. Attribute OLEDragDrop.VB_Description = "Occurs when data is dropped onto the control via an OLE drag/drop operation, and OLEDropMode is set to manual."
  53. Event OLECompleteDrag(Effect As Long) 'MappingInfo=UserControl,UserControl,-1,OLECompleteDrag
  54. Attribute OLECompleteDrag.VB_Description = "Occurs at the OLE drag/drop source control after a manual or automatic drag/drop has been completed or canceled."
  55. Event ReadProperties(PropBag As PropertyBag) 'MappingInfo=UserControl,UserControl,-1,ReadProperties
  56. Attribute ReadProperties.VB_Description = "Occurs when a user control or user document is asked to read its data from a file."
  57. Event Resize() 'MappingInfo=UserControl,UserControl,-1,Resize
  58. Attribute Resize.VB_Description = "Occurs when a form is first displayed or the size of an object changes."
  59.  
  60. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  61. 'MappingInfo=UserControl,UserControl,-1,BackColor
  62. Public Property Get BackColor() As OLE_COLOR
  63. Attribute BackColor.VB_Description = "Returns/sets the background color used to display text and graphics in an object."
  64.     BackColor = UserControl.BackColor
  65. End Property
  66.  
  67. Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
  68.     UserControl.BackColor() = New_BackColor
  69.     PropertyChanged "BackColor"
  70. End Property
  71.  
  72. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  73. 'MappingInfo=UserControl,UserControl,-1,ForeColor
  74. Public Property Get ForeColor() As OLE_COLOR
  75. Attribute ForeColor.VB_Description = "Returns/sets the foreground color used to display text and graphics in an object."
  76.     ForeColor = UserControl.ForeColor
  77. End Property
  78.  
  79. Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR)
  80.     UserControl.ForeColor() = New_ForeColor
  81.     PropertyChanged "ForeColor"
  82. End Property
  83.  
  84. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  85. 'MappingInfo=UserControl,UserControl,-1,Enabled
  86. Public Property Get Enabled() As Boolean
  87. Attribute Enabled.VB_Description = "Returns/sets a value that determines whether an object can respond to user-generated events."
  88.     Enabled = UserControl.Enabled
  89. End Property
  90.  
  91. Public Property Let Enabled(ByVal New_Enabled As Boolean)
  92.     UserControl.Enabled() = New_Enabled
  93.     PropertyChanged "Enabled"
  94. End Property
  95.  
  96. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  97. 'MappingInfo=UserControl,UserControl,-1,Font
  98. Public Property Get Font() As Font
  99. Attribute Font.VB_Description = "Returns a Font object."
  100. Attribute Font.VB_UserMemId = -512
  101.     Set Font = UserControl.Font
  102. End Property
  103.  
  104. Public Property Set Font(ByVal New_Font As Font)
  105.     Set UserControl.Font = New_Font
  106.     PropertyChanged "Font"
  107. End Property
  108.  
  109. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  110. 'MappingInfo=UserControl,UserControl,-1,BorderStyle
  111. Public Property Get BorderStyle() As Integer
  112. Attribute BorderStyle.VB_Description = "Returns/sets the border style for an object."
  113.     BorderStyle = UserControl.BorderStyle
  114. End Property
  115.  
  116. Public Property Let BorderStyle(ByVal New_BorderStyle As Integer)
  117.     UserControl.BorderStyle() = New_BorderStyle
  118.     PropertyChanged "BorderStyle"
  119. End Property
  120.  
  121. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  122. 'MappingInfo=UserControl,UserControl,-1,Refresh
  123. Public Sub Refresh()
  124. Attribute Refresh.VB_Description = "Forces a complete repaint of a object."
  125.     UserControl.Refresh
  126. End Sub
  127.  
  128. Private Sub UserControl_Click()
  129.     RaiseEvent Click
  130. End Sub
  131.  
  132. Private Sub UserControl_DblClick()
  133.     RaiseEvent DblClick
  134. End Sub
  135.  
  136. Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
  137.     RaiseEvent KeyDown(KeyCode, Shift)
  138. End Sub
  139.  
  140. Private Sub UserControl_KeyPress(KeyAscii As Integer)
  141.     RaiseEvent KeyPress(KeyAscii)
  142. End Sub
  143.  
  144. Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
  145.     RaiseEvent KeyUp(KeyCode, Shift)
  146. End Sub
  147.  
  148. Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  149.     RaiseEvent MouseDown(Button, Shift, x, y)
  150. End Sub
  151.  
  152. Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  153.     RaiseEvent MouseMove(Button, Shift, x, y)
  154. End Sub
  155.  
  156. Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  157.     RaiseEvent MouseUp(Button, Shift, x, y)
  158. End Sub
  159.  
  160. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  161.     BugLocalMessage "UserControl_WriteProperties"
  162.     RaiseEvent WriteProperties(PropBag)
  163.     Call PropBag.WriteProperty("BackColor", UserControl.BackColor, &H8000000F)
  164.     Call PropBag.WriteProperty("ForeColor", UserControl.ForeColor, &H80000012)
  165.     Call PropBag.WriteProperty("Enabled", UserControl.Enabled, True)
  166.     Call PropBag.WriteProperty("Font", Font, Ambient.Font)
  167.     Call PropBag.WriteProperty("BorderStyle", UserControl.BorderStyle, 0)
  168.     Call PropBag.WriteProperty("ScaleWidth", UserControl.ScaleWidth, 2235)
  169.     Call PropBag.WriteProperty("ScaleTop", UserControl.ScaleTop, 0)
  170.     Call PropBag.WriteProperty("ScaleMode", UserControl.ScaleMode, 1)
  171.     Call PropBag.WriteProperty("ScaleLeft", UserControl.ScaleLeft, 0)
  172.     Call PropBag.WriteProperty("ScaleHeight", UserControl.ScaleHeight, 2145)
  173.     Call PropBag.WriteProperty("Picture", Picture, Nothing)
  174.     Call PropBag.WriteProperty("OLEDropMode", UserControl.OLEDropMode, 0)
  175.     Call PropBag.WriteProperty("MousePointer", UserControl.MousePointer, 0)
  176.     Call PropBag.WriteProperty("MouseIcon", MouseIcon, Nothing)
  177.     Call PropBag.WriteProperty("MaskColor", UserControl.MaskColor, -2147483633)
  178.     Call PropBag.WriteProperty("FillStyle", UserControl.FillStyle, 1)
  179.     Call PropBag.WriteProperty("FillColor", UserControl.FillColor, &H0&)
  180.     Call PropBag.WriteProperty("DrawWidth", UserControl.DrawWidth, 1)
  181.     Call PropBag.WriteProperty("DrawStyle", UserControl.DrawStyle, 0)
  182.     Call PropBag.WriteProperty("DrawMode", UserControl.DrawMode, 13)
  183.     Call PropBag.WriteProperty("CurrentY", UserControl.CurrentY, 0)
  184.     Call PropBag.WriteProperty("CurrentX", UserControl.CurrentX, 0)
  185.     Call PropBag.WriteProperty("AutoRedraw", UserControl.AutoRedraw, False)
  186. End Sub
  187.  
  188. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  189. 'MappingInfo=UserControl,UserControl,-1,TextWidth
  190. Public Function TextWidth(Str As String) As Single
  191. Attribute TextWidth.VB_Description = "Returns the width of a text string as it would be printed in the current font."
  192.     TextWidth = UserControl.TextWidth(Str)
  193. End Function
  194.  
  195. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  196. 'MappingInfo=UserControl,UserControl,-1,TextHeight
  197. Public Function TextHeight(Str As String) As Single
  198. Attribute TextHeight.VB_Description = "Returns the height of a text string as it would be printed in the current font."
  199.     TextHeight = UserControl.TextHeight(Str)
  200. End Function
  201.  
  202. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  203. 'MappingInfo=UserControl,UserControl,-1,ScaleY
  204. Public Function ScaleY(Height As Single, Optional FromScale As Variant, Optional ToScale As Variant) As Single
  205. Attribute ScaleY.VB_Description = "Converts the value for the height of a Form, PictureBox, or Printer from one unit of measure to another."
  206.     ScaleY = UserControl.ScaleY(Height, FromScale, ToScale)
  207. End Function
  208.  
  209. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  210. 'MappingInfo=UserControl,UserControl,-1,ScaleX
  211. Public Function ScaleX(Width As Single, Optional FromScale As Variant, Optional ToScale As Variant) As Single
  212. Attribute ScaleX.VB_Description = "Converts the value for the width of a Form, PictureBox, or Printer from one unit of measure to another."
  213.     ScaleX = UserControl.ScaleX(Width, FromScale, ToScale)
  214. End Function
  215.  
  216. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  217. 'MappingInfo=UserControl,UserControl,-1,ScaleWidth
  218. Public Property Get ScaleWidth() As Single
  219. Attribute ScaleWidth.VB_Description = "Returns/sets the number of units for the horizontal measurement of an object's interior."
  220.     ScaleWidth = UserControl.ScaleWidth
  221. End Property
  222.  
  223. Public Property Let ScaleWidth(ByVal New_ScaleWidth As Single)
  224.     UserControl.ScaleWidth() = New_ScaleWidth
  225.     PropertyChanged "ScaleWidth"
  226. End Property
  227.  
  228. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  229. 'MappingInfo=UserControl,UserControl,-1,ScaleTop
  230. Public Property Get ScaleTop() As Single
  231. Attribute ScaleTop.VB_Description = "Returns/sets the vertical coordinates for the top edges of an object."
  232.     ScaleTop = UserControl.ScaleTop
  233. End Property
  234.  
  235. Public Property Let ScaleTop(ByVal New_ScaleTop As Single)
  236.     UserControl.ScaleTop() = New_ScaleTop
  237.     PropertyChanged "ScaleTop"
  238. End Property
  239.  
  240. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  241. 'MappingInfo=UserControl,UserControl,-1,ScaleMode
  242. Public Property Get ScaleMode() As Integer
  243. Attribute ScaleMode.VB_Description = "Returns/sets a value indicating measurement units for object coordinates when using graphics methods or positioning controls."
  244.     ScaleMode = UserControl.ScaleMode
  245. End Property
  246.  
  247. Public Property Let ScaleMode(ByVal New_ScaleMode As Integer)
  248.     UserControl.ScaleMode() = New_ScaleMode
  249.     PropertyChanged "ScaleMode"
  250. End Property
  251.  
  252. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  253. 'MappingInfo=UserControl,UserControl,-1,ScaleLeft
  254. Public Property Get ScaleLeft() As Single
  255. Attribute ScaleLeft.VB_Description = "Returns/sets the horizontal coordinates for the left edges of an object."
  256.     ScaleLeft = UserControl.ScaleLeft
  257. End Property
  258.  
  259. Public Property Let ScaleLeft(ByVal New_ScaleLeft As Single)
  260.     UserControl.ScaleLeft() = New_ScaleLeft
  261.     PropertyChanged "ScaleLeft"
  262. End Property
  263.  
  264. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  265. 'MappingInfo=UserControl,UserControl,-1,ScaleHeight
  266. Public Property Get ScaleHeight() As Single
  267. Attribute ScaleHeight.VB_Description = "Returns/sets the number of units for the vertical measurement of an object's interior."
  268.     ScaleHeight = UserControl.ScaleHeight
  269. End Property
  270.  
  271. Public Property Let ScaleHeight(ByVal New_ScaleHeight As Single)
  272.     UserControl.ScaleHeight() = New_ScaleHeight
  273.     PropertyChanged "ScaleHeight"
  274. End Property
  275.  
  276. 'The Underscore following "Scale" is necessary because it
  277. 'is a Reserved Word in VBA.
  278. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  279. 'MappingInfo=UserControl,UserControl,-1,Scale
  280. Public Sub Scale_(Optional X1 As Variant, Optional Y1 As Variant, Optional X2 As Variant, Optional Y2 As Variant)
  281.     UserControl.Scale (X1, Y1)-(X2, Y2)
  282. End Sub
  283.  
  284. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  285. 'MappingInfo=UserControl,UserControl,-1,PSet
  286. Public Sub PSetRel(x As Single, y As Single, _
  287.                   Optional Color As Long = vbWindowBackground)
  288.     If Color = vbvbWindowBackground Then Color = UserControl.ForeColor
  289.     UserControl.PSet Step(x, y), Color
  290. End Sub
  291.  
  292. Public Sub PSetAbs(x As Single, y As Single, _
  293.                   Optional Color As Long = vbWindowBackground)
  294.     If Color = vbvbWindowBackground Then Color = UserControl.ForeColor
  295.     UserControl.PSet (x, y), Color
  296. End Sub
  297.  
  298. 'The Underscore following "Point" is necessary because it
  299. 'is a Reserved Word in VBA.
  300. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  301. 'MappingInfo=UserControl,UserControl,-1,Point
  302. Public Function Point(x As Single, y As Single) As Long
  303. Attribute Point.VB_Description = "Returns, as an integer of type Long, the RGB color of the specified point on a Form or PictureBox object."
  304.     Point = UserControl.Point(x, y)
  305. End Function
  306.  
  307. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  308. 'MappingInfo=UserControl,UserControl,-1,Picture
  309. Public Property Get Picture() As Picture
  310. Attribute Picture.VB_Description = "Returns/sets a graphic to be displayed in a control."
  311.     Set Picture = UserControl.Picture
  312. End Property
  313.  
  314. Public Property Set Picture(ByVal New_Picture As Picture)
  315.     Set UserControl.Picture = New_Picture
  316.     ' Begin new code
  317.     Set UserControl.MaskPicture = New_Picture
  318.     If Not New_Picture Is Nothing Then
  319.         UserControl.Width = New_Picture.Width
  320.         UserControl.Height = New_Picture.Height
  321.     End If
  322.     ' End new code
  323.     PropertyChanged "Picture"
  324. End Property
  325.  
  326. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  327. 'MappingInfo=UserControl,UserControl,-1,PaintPicture
  328. Public Sub PaintPicture(Picture As Picture, X1 As Single, Y1 As Single, Optional Width1 As Variant, Optional Height1 As Variant, Optional X2 As Variant, Optional Y2 As Variant, Optional Width2 As Variant, Optional Height2 As Variant, Optional Opcode As Variant)
  329. Attribute PaintPicture.VB_Description = "Draws the contents of a graphics file on a Form, PictureBox, or Printer object."
  330.     UserControl.PaintPicture Picture, X1, Y1, Width1, Height1, X2, Y2, Width2, Height2, Opcode
  331. End Sub
  332.  
  333. Private Sub UserControl_Paint()
  334.     BugLocalMessage "UserControl_Paint"
  335.     RaiseEvent Paint
  336. End Sub
  337.  
  338. Private Sub UserControl_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
  339.     RaiseEvent OLEStartDrag(Data, AllowedEffects)
  340. End Sub
  341.  
  342. Private Sub UserControl_OLESetData(Data As DataObject, DataFormat As Integer)
  343.     RaiseEvent OLESetData(Data, DataFormat)
  344. End Sub
  345.  
  346. Private Sub UserControl_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
  347.     RaiseEvent OLEGiveFeedback(Effect, DefaultCursors)
  348. End Sub
  349.  
  350. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  351. 'MappingInfo=UserControl,UserControl,-1,OLEDropMode
  352. Public Property Get OLEDropMode() As Integer
  353. Attribute OLEDropMode.VB_Description = "Returns/Sets whether this object can act as an OLE drop target."
  354.     OLEDropMode = UserControl.OLEDropMode
  355. End Property
  356.  
  357. Public Property Let OLEDropMode(ByVal New_OLEDropMode As Integer)
  358.     UserControl.OLEDropMode() = New_OLEDropMode
  359.     PropertyChanged "OLEDropMode"
  360. End Property
  361.  
  362. Private Sub UserControl_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
  363.     RaiseEvent OLEDragOver(Data, Effect, Button, Shift, x, y, State)
  364. End Sub
  365.  
  366. Private Sub UserControl_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
  367.     RaiseEvent OLEDragDrop(Data, Effect, Button, Shift, x, y)
  368. End Sub
  369.  
  370. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  371. 'MappingInfo=UserControl,UserControl,-1,OLEDrag
  372. Public Sub OLEDrag()
  373. Attribute OLEDrag.VB_Description = "Starts an OLE drag/drop event with the given control as the source."
  374.     UserControl.OLEDrag
  375. End Sub
  376.  
  377. Private Sub UserControl_OLECompleteDrag(Effect As Long)
  378.     RaiseEvent OLECompleteDrag(Effect)
  379. End Sub
  380.  
  381. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  382. 'MappingInfo=UserControl,UserControl,-1,MousePointer
  383. Public Property Get MousePointer() As Integer
  384. Attribute MousePointer.VB_Description = "Returns/sets the type of mouse pointer displayed when over part of an object."
  385.     MousePointer = UserControl.MousePointer
  386. End Property
  387.  
  388. Public Property Let MousePointer(ByVal New_MousePointer As Integer)
  389.     UserControl.MousePointer() = New_MousePointer
  390.     PropertyChanged "MousePointer"
  391. End Property
  392.  
  393. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  394. 'MappingInfo=UserControl,UserControl,-1,MouseIcon
  395. Public Property Get MouseIcon() As Picture
  396. Attribute MouseIcon.VB_Description = "Sets a custom mouse icon."
  397.     Set MouseIcon = UserControl.MouseIcon
  398. End Property
  399.  
  400. Public Property Set MouseIcon(ByVal New_MouseIcon As Picture)
  401.     Set UserControl.MouseIcon = New_MouseIcon
  402.     PropertyChanged "MouseIcon"
  403. End Property
  404.  
  405. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  406. 'MappingInfo=UserControl,UserControl,-1,MaskColor
  407. Public Property Get MaskColor() As Long
  408. Attribute MaskColor.VB_Description = "Returns/sets the color that specifies transparent areas in the MaskPicture."
  409.     MaskColor = UserControl.MaskColor
  410. End Property
  411.  
  412. Public Property Let MaskColor(ByVal New_MaskColor As Long)
  413.     UserControl.MaskColor() = New_MaskColor
  414.     PropertyChanged "MaskColor"
  415. End Property
  416.  
  417. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  418. 'MappingInfo=UserControl,UserControl,-1,Line
  419. Public Sub LineAbsAbs(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single, _
  420.                       Optional Color As Long = vbWindowBackground, _
  421.                       Optional fBox As Boolean = False, _
  422.                       Optional fFill As Boolean = False)
  423.     If Color = vbvbWindowBackground Then Color = UserControl.ForeColor
  424.     If fBox Then
  425.         If fFill Then
  426.             UserControl.Line (X1, Y1)-(X2, Y2), Color, BF
  427.         Else
  428.             UserControl.Line (X1, Y1)-(X2, Y2), Color, B
  429.         End If
  430.     Else
  431.         ' Test not necessary because F without B illegal
  432.         ' Could raise an error, but allow illegal combination
  433.         UserControl.Line (X1, Y1)-(X2, Y2), Color
  434.     End If
  435. End Sub
  436.  
  437. Public Sub LineRelRel(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single, _
  438.                       Optional Color As Long = vbWindowBackground, _
  439.                       Optional fBox As Boolean = False, _
  440.                       Optional fFill As Boolean = False)
  441.     If Color = vbvbWindowBackground Then Color = UserControl.ForeColor
  442.     If fBox Then
  443.         If fFill Then
  444.             UserControl.Line Step(X1, Y1)-Step(X2, Y2), Color, BF
  445.         Else
  446.             UserControl.Line Step(X1, Y1)-Step(X2, Y2), Color, B
  447.         End If
  448.     Else
  449.         ' Test not necessary because F without B illegal
  450.         ' Could raise an error, but allow illegal combination
  451.         UserControl.Line Step(X1, Y1)-Step(X2, Y2), Color
  452.     End If
  453. End Sub
  454.  
  455. Public Sub LineAbsRel(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single, _
  456.                       Optional Color As Long = vbWindowBackground, _
  457.                       Optional fBox As Boolean = False, _
  458.                       Optional fFill As Boolean = False)
  459.     If Color = vbvbWindowBackground Then Color = UserControl.ForeColor
  460.     If fBox Then
  461.         If fFill Then
  462.             UserControl.Line (X1, Y1)-Step(X2, Y2), Color, BF
  463.         Else
  464.             UserControl.Line (X1, Y1)-Step(X2, Y2), Color, B
  465.         End If
  466.     Else
  467.         ' Test not necessary because F without B illegal
  468.         ' Could raise an error, but allow illegal combination
  469.         UserControl.Line (X1, Y1)-Step(X2, Y2), Color
  470.     End If
  471. End Sub
  472.  
  473. Public Sub LineRelAbs(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single, _
  474.                       Optional Color As Long = vbWindowBackground, _
  475.                       Optional fBox As Boolean = False, _
  476.                       Optional fFill As Boolean = False)
  477.     If Color = vbvbWindowBackground Then Color = UserControl.ForeColor
  478.     If fBox Then
  479.         If fFill Then
  480.             UserControl.Line Step(X1, Y1)-(X2, Y2), Color, BF
  481.         Else
  482.             UserControl.Line Step(X1, Y1)-(X2, Y2), Color, B
  483.         End If
  484.     Else
  485.         ' Test not necessary because F without B illegal
  486.         ' Could raise an error, but allow illegal combination
  487.         UserControl.Line Step(X1, Y1)-(X2, Y2), Color
  488.     End If
  489. End Sub
  490.  
  491. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  492. 'MappingInfo=UserControl,UserControl,-1,hWnd
  493. Public Property Get hWnd() As Long
  494. Attribute hWnd.VB_Description = "Returns a handle (from Microsoft Windows) to an object's window."
  495.     hWnd = UserControl.hWnd
  496. End Property
  497.  
  498. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  499. 'MappingInfo=UserControl,UserControl,-1,hDC
  500. Public Property Get hDC() As Long
  501. Attribute hDC.VB_Description = "Returns a handle (from Microsoft Windows) to the object's device context."
  502.     hDC = UserControl.hDC
  503. End Property
  504.  
  505. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  506. 'MappingInfo=UserControl,UserControl,-1,FillStyle
  507. Public Property Get FillStyle() As Integer
  508. Attribute FillStyle.VB_Description = "Returns/sets the fill style of a shape."
  509.     FillStyle = UserControl.FillStyle
  510. End Property
  511.  
  512. Public Property Let FillStyle(ByVal New_FillStyle As Integer)
  513.     UserControl.FillStyle() = New_FillStyle
  514.     PropertyChanged "FillStyle"
  515. End Property
  516.  
  517. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  518. 'MappingInfo=UserControl,UserControl,-1,FillColor
  519. Public Property Get FillColor() As OLE_COLOR
  520. Attribute FillColor.VB_Description = "Returns/sets the color used to fill in shapes, circles, and boxes."
  521.     FillColor = UserControl.FillColor
  522. End Property
  523.  
  524. Public Property Let FillColor(ByVal New_FillColor As OLE_COLOR)
  525.     UserControl.FillColor() = New_FillColor
  526.     PropertyChanged "FillColor"
  527. End Property
  528.  
  529. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  530. 'MappingInfo=UserControl,UserControl,-1,DrawWidth
  531. Public Property Get DrawWidth() As Integer
  532. Attribute DrawWidth.VB_Description = "Returns/sets the line width for output from graphics methods."
  533.     DrawWidth = UserControl.DrawWidth
  534. End Property
  535.  
  536. Public Property Let DrawWidth(ByVal New_DrawWidth As Integer)
  537.     UserControl.DrawWidth() = New_DrawWidth
  538.     PropertyChanged "DrawWidth"
  539. End Property
  540.  
  541. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  542. 'MappingInfo=UserControl,UserControl,-1,DrawStyle
  543. Public Property Get DrawStyle() As Integer
  544. Attribute DrawStyle.VB_Description = "Determines the line style for output from graphics methods."
  545.     DrawStyle = UserControl.DrawStyle
  546. End Property
  547.  
  548. Public Property Let DrawStyle(ByVal New_DrawStyle As Integer)
  549.     UserControl.DrawStyle() = New_DrawStyle
  550.     PropertyChanged "DrawStyle"
  551. End Property
  552.  
  553. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  554. 'MappingInfo=UserControl,UserControl,-1,DrawMode
  555. Public Property Get DrawMode() As Integer
  556. Attribute DrawMode.VB_Description = "Sets the appearance of output from graphics methods or of a Shape or Line control."
  557.     DrawMode = UserControl.DrawMode
  558. End Property
  559.  
  560. Public Property Let DrawMode(ByVal New_DrawMode As Integer)
  561.     UserControl.DrawMode() = New_DrawMode
  562.     PropertyChanged "DrawMode"
  563. End Property
  564.  
  565. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  566. 'MappingInfo=UserControl,UserControl,-1,CurrentY
  567. Public Property Get CurrentY() As Single
  568. Attribute CurrentY.VB_Description = "Returns/sets the vertical coordinates for next print or draw method."
  569.     CurrentY = UserControl.CurrentY
  570. End Property
  571.  
  572. Public Property Let CurrentY(ByVal New_CurrentY As Single)
  573.     UserControl.CurrentY() = New_CurrentY
  574.     PropertyChanged "CurrentY"
  575. End Property
  576.  
  577. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  578. 'MappingInfo=UserControl,UserControl,-1,CurrentX
  579. Public Property Get CurrentX() As Single
  580. Attribute CurrentX.VB_Description = "Returns/sets the horizontal coordinates for next print or draw method."
  581.     CurrentX = UserControl.CurrentX
  582. End Property
  583.  
  584. Public Property Let CurrentX(ByVal New_CurrentX As Single)
  585.     UserControl.CurrentX() = New_CurrentX
  586.     PropertyChanged "CurrentX"
  587. End Property
  588.  
  589. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  590. 'MappingInfo=UserControl,UserControl,-1,Cls
  591. Public Sub Cls()
  592. Attribute Cls.VB_Description = "Clears graphics and text generated at run time from a Form, Image, or PictureBox."
  593.     UserControl.Cls
  594. End Sub
  595.  
  596. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  597. 'MappingInfo=UserControl,UserControl,-1,ClipControls
  598. Public Property Get ClipControls() As Boolean
  599. Attribute ClipControls.VB_Description = "Determines whether graphics methods in Paint events repaint an entire object or newly exposed areas."
  600.     ClipControls = UserControl.ClipControls
  601. End Property
  602.  
  603. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  604. 'MappingInfo=UserControl,UserControl,-1,Circle
  605. Public Sub CircleRel(x As Single, y As Single, Radius As Single, _
  606.                      Optional Color As Long = vbWindowBackground, _
  607.                      Optional StartPos As Single = 0, _
  608.                      Optional EndPos As Variant = 2 * 3.14159, _
  609.                      Optional Aspect As Single = 1#)
  610.     If Color = vbvbWindowBackground Then Color = UserControl.ForeColor
  611.     UserControl.Circle Step(x, y), Radius, Color, StartPos, EndPos, Aspect
  612. End Sub
  613.  
  614. Public Sub CircleAbs(x As Single, y As Single, Radius As Single, _
  615.                      Optional Color As Long = vbWindowBackground, _
  616.                      Optional StartPos As Single = 0, _
  617.                      Optional EndPos As Variant = 2 * 3.14159, _
  618.                      Optional Aspect As Single = 1#)
  619.     If Color = vbvbWindowBackground Then Color = UserControl.ForeColor
  620.     UserControl.Circle (x, y), Radius, Color, StartPos, EndPos, Aspect
  621. End Sub
  622.  
  623. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  624. 'MappingInfo=UserControl,UserControl,-1,AutoRedraw
  625. Public Property Get AutoRedraw() As Boolean
  626. Attribute AutoRedraw.VB_Description = "Returns/sets the output from a graphics method to a persistent bitmap."
  627.     AutoRedraw = UserControl.AutoRedraw
  628. End Property
  629.  
  630. Public Property Let AutoRedraw(ByVal New_AutoRedraw As Boolean)
  631.     UserControl.AutoRedraw() = New_AutoRedraw
  632.     PropertyChanged "AutoRedraw"
  633. End Property
  634.  
  635. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  636. 'MappingInfo=UserControl,UserControl,-1,Appearance
  637. Public Property Get Appearance() As Integer
  638. Attribute Appearance.VB_Description = "Returns/sets whether or not an object is painted at run time with 3-D effects."
  639.     Appearance = UserControl.Appearance
  640. End Property
  641.  
  642. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  643.     BugLocalMessage "UserControl_ReadProperties"
  644.     RaiseEvent ReadProperties(PropBag)
  645.     UserControl.BackColor = PropBag.ReadProperty("BackColor", &H8000000F)
  646.     UserControl.ForeColor = PropBag.ReadProperty("ForeColor", &H80000012)
  647.     UserControl.Enabled = PropBag.ReadProperty("Enabled", True)
  648.     Set Font = PropBag.ReadProperty("Font", Ambient.Font)
  649.     UserControl.BorderStyle = PropBag.ReadProperty("BorderStyle", 0)
  650.     UserControl.ScaleWidth = PropBag.ReadProperty("ScaleWidth", 2235)
  651.     UserControl.ScaleTop = PropBag.ReadProperty("ScaleTop", 0)
  652.     UserControl.ScaleMode = PropBag.ReadProperty("ScaleMode", 1)
  653.     UserControl.ScaleLeft = PropBag.ReadProperty("ScaleLeft", 0)
  654.     UserControl.ScaleHeight = PropBag.ReadProperty("ScaleHeight", 2145)
  655.     Set Picture = PropBag.ReadProperty("Picture", Nothing)
  656.     UserControl.OLEDropMode = PropBag.ReadProperty("OLEDropMode", 0)
  657.     UserControl.MousePointer = PropBag.ReadProperty("MousePointer", 0)
  658.     Set MouseIcon = PropBag.ReadProperty("MouseIcon", Nothing)
  659.     UserControl.MaskColor = PropBag.ReadProperty("MaskColor", -2147483633)
  660.     UserControl.FillStyle = PropBag.ReadProperty("FillStyle", 1)
  661.     UserControl.FillColor = PropBag.ReadProperty("FillColor", &H0&)
  662.     UserControl.DrawWidth = PropBag.ReadProperty("DrawWidth", 1)
  663.     UserControl.DrawStyle = PropBag.ReadProperty("DrawStyle", 0)
  664.     UserControl.DrawMode = PropBag.ReadProperty("DrawMode", 13)
  665.     UserControl.CurrentY = PropBag.ReadProperty("CurrentY", 0)
  666.     UserControl.CurrentX = PropBag.ReadProperty("CurrentX", 0)
  667.     UserControl.AutoRedraw = PropBag.ReadProperty("AutoRedraw", False)
  668. End Sub
  669.  
  670. Private Sub UserControl_InitProperties()
  671.     BugLocalMessage "UserControl_InitProperties"
  672.     Set Font = Ambient.Font
  673.     Extender.Name = UniqueControlName("pg", Extender)
  674. End Sub
  675.  
  676. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  677. 'MappingInfo=UserControl,UserControl,-1,Image
  678. Public Property Get Image() As Picture
  679. Attribute Image.VB_Description = "Returns a handle, provided by Microsoft Windows, to a persistent bitmap."
  680.     Set Image = UserControl.Image
  681. End Property
  682.  
  683. Private Sub UserControl_Resize()
  684.     BugLocalMessage "UserControl_Resize"
  685.     RaiseEvent Resize
  686. End Sub
  687.  
  688.  
  689.  
  690.